home *** CD-ROM | disk | FTP | other *** search
/ Aminet 23 / Aminet 23 (1998)(GTI - Schatztruhe)[!][Feb 1998].iso / Aminet / dev / amos / AMOS1097.lzh / AMOSLIST / 000063_amos-request@svcs1.digex.net_Mon Oct 6 03:24:03 1997.msg < prev    next >
Internet Message Format  |  1997-11-02  |  5KB
  1. Received: from svcs1.digex.net (svcs1.digex.net [204.91.197.224])
  2.     by mail3.access.digex.net (8.8.5/8.8.5) with ESMTP id DAA04173
  3.     for <mcox@access.digex.net>; Mon, 6 Oct 1997 03:24:01 -0400 (EDT)
  4. Received: (from daemon@localhost)
  5.     by svcs1.digex.net (8.8.5/8.8.5) id CAA20422
  6.     for amos-out; Mon, 6 Oct 1997 02:26:28 -0400 (EDT)
  7. Received: from mail2.access.digex.net (mail2.access.digex.net [205.197.247.3])
  8.     by svcs1.digex.net (8.8.5/8.8.5) with ESMTP id CAA20419
  9.     for <amos-list@svcs1.digex.net>; Mon, 6 Oct 1997 02:26:27 -0400 (EDT)
  10. Received: from mail.redrose.net (mail.redrose.net [204.249.184.22])
  11.     by mail2.access.digex.net (8.8.5/8.8.5) with SMTP id CAA29906
  12.     for <amos-list@access.digex.net>; Mon, 6 Oct 1997 02:26:26 -0400 (EDT)
  13. Received: (qmail 22667 invoked from network); 6 Oct 1997 06:26:42 -0000
  14. Received: from lp2-1.redrose.net (HELO redrose.net) (mushy-pd@205.246.83.97)
  15.   by mail.redrose.net with SMTP; 6 Oct 1997 06:26:42 -0000
  16. From: Mush <mushypd@redrose.net>
  17. Reply-To: Mush <mushypd@redrose.net>
  18. To: amos-list@access.digex.net
  19. Date: Mon, 06 Oct 1997 02:28:41 +0500
  20. Message-ID: <yam7218.2058.3188896@mail.redrose.net>
  21. X-Mailer: YAM 1.3.4 [020] - Amiga Mailer by Marcel Beck
  22. Organization: Mushroom PD - AMOS Public Domain Library
  23. Subject: AMOSPro or GUI Extension bug?
  24. MIME-Version: 1.0
  25. Content-Type: text/plain
  26. Status: O
  27. X-Status: 
  28.  
  29. Im having a problem with AMOSPro, and I dont know if it is the Pro editor
  30. itself, or something in the GUI extension that is affecting it.
  31.  
  32. The problem is quite simple. My source code is being tampered with. Im
  33. using a procedure which executes a DOS command, and sends its output to a
  34. window which I define. Its not a GUI extension window, either. I'll rip the
  35. source code for the procedures im using, and be right back... OK Here they
  36. are:
  37.  
  38. Procedure WCL[N]
  39.    ' This procedure closes a window I have opened
  40.    If WINCON(N)=0 Then Goto ERR
  41.    Dreg(1)=WINCON(N)
  42.    X=Doscall(-36)
  43.    If X=0
  44.       Goto ERR
  45.    End If 
  46.    Pop Proc
  47.    ERR:
  48.    ERR=Doscall(-132)
  49.    '   System 
  50.    End 
  51. End Proc
  52.  
  53. Procedure WEX[N,COM$]
  54.    ' This procedure will execute a DOS command in COM$ and send the output
  55.    ' To Window (N)
  56.    If WINCON(N)=0 Then Goto ERR
  57.    Dreg(1)=Varptr(COM$)
  58.    Dreg(2)=0
  59.    Dreg(3)=WINCON(N)
  60.    X=Doscall(-222)
  61.    If Len(COM$)>0
  62.       V=Varptr(COM$)
  63.       For ZZ=0 To Len(COM$)-1 : Poke ZZ+V,0 : Next ZZ
  64.    End If 
  65.    If X=0
  66.       Goto ERR
  67.    End If 
  68.    Pop Proc
  69.    ERR:
  70.    ERR=Doscall(-132)
  71. End Proc
  72.  
  73. Procedure WOP[N,X,Y,XX,YY,NAME$]
  74.    ' This opens a CLI window XX=Width  YY=Height  NAME$=Title
  75.    X$=Str$(X)-" "
  76.    Y$=Str$(Y)-" "
  77.    XX$=Str$(XX)-" "
  78.    YY$=Str$(YY)-" "
  79.    CON$="CON:"+X$+"/"+Y$+"/"+XX$+"/"+YY$+"/"+NAME$
  80.    CON$=CON$+Chr$(0)
  81.    Dreg(1)=Varptr(CON$)
  82.    Dreg(2)=1005
  83.    WINCON(N)=Doscall(-30)
  84.    If WINCON(N)=0
  85.       ERR=Doscall(-132)
  86.       'System  
  87.       End 
  88.    End If 
  89. End Proc
  90.  
  91. Procedure WPR[N,M$]
  92.    ' This prints the text in M$ to Window (N)
  93.    If WINCON(N)=0 Then Goto ERR
  94.    Dreg(1)=WINCON(N)
  95.    Dreg(2)=Varptr(M$)
  96.    Dreg(3)=Len(M$)
  97.    X=Doscall(-48)
  98.    If X=0
  99.       Goto ERR
  100.    End If 
  101.    Pop Proc
  102.    ERR:
  103.    ERR=Doscall(-132)
  104.    WCL[1]
  105.    '  System  
  106.    End 
  107. End Proc
  108.  
  109. OK, the above procedures are the ones which involve the CLI tasking which I
  110. am/was using in my program. The below procedure is one of the ones which
  111. are seriously affected by the problem...
  112.  
  113. Procedure _GETNEWS
  114.    ' Executes the AREXX script which will grab the news for the user. 
  115.    
  116.    If Not Exist("Mailserv:REXX/NNTPTransfer") : Rem News Recovery Program
  117.       SEL=Gui Req("News Recovery Error...","Cannot find news recovery
  118. script."+Chr$(10)+"Please check you installed program correctly","OK")
  119.       Pop Proc
  120.    End If 
  121.    
  122.    ' Open up a CLI window and grab the news!
  123.    Proc WOP[2,50,50,540,100,"Mailinglist Manager Output..."]
  124.    Proc WPR[2,"Attempting to Execute News Recovery script"+Chr$(10)+Chr$(10)]
  125.    Proc WEX[2,"SYS:REXXC/Rx Mailserv:REXX/NNTPTransfer"]
  126.    Wait 200
  127.    WCL[2]
  128. End Proc
  129.  
  130. Now, the real problem is the fact that the routine is deleting the contents
  131. of the WEX[""] line, no matter where i run it from, and no matter what is
  132. in it, when I go back to source format, the line will read:
  133.  
  134.    Proc WEX["
  135.  
  136. Thats it, it misses a quote, and a square bracket. The wierdest thing, is
  137. it tests OK, and will run again, but the contents that were in it are
  138. annulled and doesnt pass any commands to the CLI apart from a ""
  139.  
  140. Ive never used these procedures in ages, and only after starting using the
  141. GUI extension, am I discovering these wierd effects. Like I said, I dont
  142. know if its AMOSPro, or the GUI Extension.
  143.  
  144. Can anyone here see what is wrong? When the program is compiled, it will
  145. execute the script once, then it annuls itself, and wont close the window
  146. as the system has locked due to the error. I really ned to send the output
  147. of a program to a window though. Please help me!!!!
  148.  
  149. Andrew "Mushroom" Kellett
  150.  
  151. P.S. Sorry for the length of this email!
  152.  
  153. --
  154.  Email: Andy Kellett <mushypd@redrose.net>  Team *AMOS* + IAPA Team *AMIGA*
  155.   alt.religion.amos - AMOS now on usenet! AMOS Mailinglist also mirrored
  156.  
  157.      World's Largest AMOS Homepages - http://www.mushy-pd.demon.co.uk
  158.  
  159.          Massive FTP site with AMOS/C64 and Mods/Samples + more at
  160.                             mushy-pd.dyn.ml.org
  161.